Este HTML Suplementario contiene gráficas en 3D interactivas. Éstas pueden moverse, acercarse y alejarse haciendo click sobre ellas. Asimismo, seleccionando los colores correspondientes a las clases es posible ocultar y mostrar los puntos correspondientes a ese color.
library(plotly)
## Warning: package 'plotly' was built under R version 3.6.2
## Loading required package: ggplot2
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
tSNE30<-read.csv("/Users/elisulvaran/Desktop/LCG/Cuarto_Semestre/Ciencia_de_datos/Carlos_Mendez/BindingThrombin-Dom/binding-thrombin/reports/Scatter_plots/MNB_tSNE_3_1.csv", header=F)
chi_tSNE<-read.csv("/Users/elisulvaran/Desktop/LCG/Cuarto_Semestre/Ciencia_de_datos/Carlos_Mendez/BindingThrombin-Dom/binding-thrombin/reports/Scatter_plots/MNB_CHI2_10_1.csv", header=F)
PCA_tSNE<-read.csv("/Users/elisulvaran/Desktop/LCG/Cuarto_Semestre/Ciencia_de_datos/Carlos_Mendez/BindingThrombin-Dom/binding-thrombin/reports/Scatter_plots/MNB_PCA_1000_1.csv", header=F)
Clases<-readLines("/Users/elisulvaran/Desktop/LCG/Cuarto_Semestre/Ciencia_de_datos/Carlos_Mendez/BindingThrombin-Dom/binding-thrombin/Clases.txt")
tSNE30$Clases<-Clases
chi_tSNE$Clases<-Clases
PCA_tSNE$Clases<-Clases
tSNE30<-tSNE30[rev(order(tSNE30$Clases)),]
chi_tSNE<-chi_tSNE[rev(order(chi_tSNE$Clases)),]
PCA_tSNE<-PCA_tSNE[rev(order(PCA_tSNE$Clases)),]
tvalx<-c(tSNE30$V1, chi_tSNE$V1, PCA_tSNE$V1)
tvaly<-c(tSNE30$V2, chi_tSNE$V2, PCA_tSNE$V2)
tvalz<-c(tSNE30$V3, chi_tSNE$V3, PCA_tSNE$V3)
plot1<-plot_ly(tSNE30, x=~V1, y=~V2, z=~V3, type="scatter3d", mode="markers", color=~Clases, colors=c("#FF6699","#3399FF"))
plot2<-plot_ly(chi_tSNE, x=~V1, y=~V2, z=~V3, type="scatter3d", mode="markers", color=~Clases, colors=c("#FF6699","#3399FF"))
plot3<-plot_ly(PCA_tSNE, x=~V1, y=~V2, z=~V3, type="scatter3d", mode="markers", color=~Clases, colors=c("#FF6699","#3399FF"))
plot1<-layout(plot1, scene=list(xaxis=list(title="PC1", range=c(min(tvalx), max(tvalx))), yaxis=list(title="PC2", range=c(min(tvaly), max(tvaly))), zaxis=list(title="PC3", range=c(min(tvalz), max(tvalz)))), title="Figura 1: tSNE en datos orginales")
plot2<-layout(plot2, scene=list(xaxis=list(title="PC1", range=c(min(tvalx), max(tvalx))), yaxis=list(title="PC2", range=c(min(tvaly), max(tvaly))), zaxis=list(title="PC3", range=c(min(tvalz), max(tvalz)))), title="Figura 3: tSNE y Chi2")
plot3<-layout(plot3, scene=list(xaxis=list(title="PC1", range=c(min(tvalx), max(tvalx))), yaxis=list(title="PC2", range=c(min(tvaly), max(tvaly))), zaxis=list(title="PC3", range=c(min(tvalz), max(tvalz)))), title="Figura 2: tSNE y PCA")
plot1
plot3
plot2